home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0015.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  2.1 KB  |  24 lines
  1. NOTE ML0015 - DISPLAY CODES FIELD DATA ON SCREEN AND REMEMBER LOCATION ON SCREEN    7/9/84
  2. @ OFSET+L,M
  3. DO WHILE N<V
  4. STORE N+1    TO N
  5. STORE STR(N,1+INT(N/10) ) TO VC
  6. STORE L&VC    TO ML
  7. IF M+ML+1>79
  8.     STORE L+2    TO L
  9.     STORE 0    TO M
  10.     @ OFSET+L,0
  11.     ENDIF
  12. @ OFSET+L,M SAY '<'+CD&VC +'>'
  13. STORE L+1    TO LI&VC
  14. STORE M    TO M&VC
  15. STORE M+ML+4    TO M
  16. ENDDO
  17. RETURN
  18. T+L,M SAY '<'+CD&VC +'>'
  19. STORE L+1    TO LI&VC
  20. STORE M    TO M&VC
  21. STORE M+ML+4    TO M
  22. ENDDO
  23. RETURN
  24.